home *** CD-ROM | disk | FTP | other *** search
/ Webster's Millennium Amer…Sign Language Dictionary / ASL.ISO / mac / SKILLS.dir / 00065_Script_previous q script < prev    next >
Text File  |  2001-09-05  |  702b  |  17 lines
  1. on mouseUp
  2. --on mouseDown
  3.   global TEMPLATE1, KNOB1, minPos1, maxPos1,gNumQs
  4.   global maxscroll,minScroll,gCat,ScrollList
  5.   put maxscroll*1.0-minScroll*1.0 into scrollRange
  6.   put float(scrollRange/(maxPos1-minPos1)) into scrollRatio
  7.   put max(integer((maxPos1-minPos1)/scrollRange),1) into sliderRatio
  8.   --repeat while the mouseDown
  9.     set the locH of sprite KNOB1 = max( minPos1, min((the locH of sprite KNOB1 - sliderRatio) , maxPos1 ))
  10.     set refVal = getQVal(the locH of sprite KNOB1,scrollRange,scrollRatio,minPos1)
  11.     set the text of cast "whichq" = string(integer(refVal))&&"of"&&gNumQs
  12.     updateStage
  13.   --end repeat
  14.   aQuestion integer(refVal)
  15. --end
  16. --alert "previous q"
  17. end